home *** CD-ROM | disk | FTP | other *** search
/ Arktis Edition / ARKTIS Edition Vol. 1 (1994)(ARKTIS)(DE)[!].iso / softwareproben / databaseprof-demo / dbpro2 / fakturierung / kundenkartei.aufträge.rexx < prev    next >
OS/2 REXX Batch file  |  1994-08-04  |  1KB  |  30 lines
  1. /* Kundennummer */
  2.  
  3. Options results
  4.  
  5. ADDRESS DataBase                 /* auf Adressport DataBase umschalten    */
  6.  
  7. GetData $F1                      /* Inhalt aus Feld 1 lesen               */
  8. kdn = RESULT                     /* und in der Variablen kdn speichern    */
  9. GetData $F4                      /* Inhalt aus Feld 2 lesen               */
  10. nam = RESULT                     /* und in der Variablen nam speichern    */
  11.  
  12. FindBase 'aufträge.db'           /* gibt die Base-Nr. zurück, in der die  */
  13. newbase = RC                     /* Datei geladen ist.                    */
  14.  
  15. IF newbase > 0 THEN              /* Ist die Datei vorhanden, dann         */
  16.   Base newbase                   /* auf die neue Base umschalten          */
  17. ELSE                             /* wenn nicht,                           */
  18.   DO                             /* dann                                  */
  19.   Base 5                         /* auf Base 5 umschalten                 */
  20.   OPEN "Fakturierung/aufträge.db"/* Datei aufträge.db laden               */
  21. END
  22.  
  23. RightTotal                       /* Ans Ende der Datei springen           */
  24. Add                              /* neuen Datensatz erzeugen              */
  25. PutData $F1 kdn                  /* den Inhalt kdn in Feld Nr. 1 kopieren */
  26. PutData $F2 nam                  /* den Inhalt nam in Feld Nr. 2 kopieren */
  27.  
  28. ADDRESS                          /* auf den vorherigen Adressport schalten*/
  29.  
  30.